Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ktgcst.cst/00075_Script_Screen Prompts

Text File | 1998-09-28 | 950b | 34 lines

global gPrompts

-- this script reads the appropriate screen prompts in from the text member "ScreenPrompts"
-- gPrompts is used in the rollover script to set the prompt window
on initPrompts
  set the ItemDelimiter to ","
  set gPrompts = []
  repeat with x = 1 to 48
    set theprompt = item 2 of line x of field "ScreenPrompts"
    append(gPrompts, thePrompt)
  end repeat
  set the forecolor of  member "promptwindow" = 0
end


on setprompt a
  if a < 1 or a > 43 then
    put "Select an item" into field "promptwindow"
    exit
  end if
  set myprompt = (getat(gPrompts,a) )
  if myprompt = "" then set  myprompt = "Select an item"
  put myprompt into field "promptwindow"
end

on loadnewlist newlist
  set mylist = "List" & newlist
  set the ItemDelimiter to ","
  set gPrompts = []
  repeat with x = 1 to 48
    set theprompt = item 2 of line x of field mylist
    append(gPrompts, thePrompt)
  end repeat
end